program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arr=array [0..99] of integer;
var
  a: ^arr;
  i: integer;
begin
  New(a);
  for i:=0 to 99 do
    a^[i]:=i+1;
  Dispose(a);
end.
